home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Tools 2
/
Amiga Tools 2.iso
/
s
/
ep_stop.dopus
< prev
next >
Wrap
Text File
|
1993-10-05
|
556b
|
37 lines
/* Eagleplayeransteuerung über Diropus
(c) 1993 DEFECT
Stoppt das Abspielen
*/
if (pos('rexx_EP',SHOW('Ports')) = 0) then
do
address 'DOPUS.1'
toptext 'No Eagleplayer found'
exit
end
address 'rexx_EP'
options results
status G fil
if result == "no" then do
address 'DOPUS.1'
toptext "Eagleplayer: No Module loaded !"
end
else do
status g ply
aha =result
if aha == "no" then do
address 'DOPUS.1'
toptext "Eagleplayer: I don`t play !"
end
else
do
Stop
address 'DOPUS.1'
toptext "Eagleplayer: Playing now stopped !"
end
end